(Fmapconcat, Fmapcar): Use SAFE_ALLOCA_LISP.

diff --git a/src/fns.c b/src/fns.c
index ae87f888966569c3de1c9220b8c476cd3a65b44c..e5622bd717e7e8a5d3129f7e30a782671213f3bc 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -3010,7 +3010,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
   if (nargs < 0) return build_string ("");
 
   nbytes = nargs * sizeof (Lisp_Object);
-  SAFE_ALLOCA (args, Lisp_Object *, nbytes);
+  SAFE_ALLOCA_LISP (args, nbytes);
 
   GCPRO1 (separator);
   mapcar1 (leni, args, function, sequence);
@@ -3046,7 +3046,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
   leni = XFASTINT (len);
 
   nbytes = leni * sizeof (Lisp_Object);
-  SAFE_ALLOCA (args, Lisp_Object *, nbytes);
+  SAFE_ALLOCA_LISP (args, nbytes);
 
   mapcar1 (leni, args, function, sequence);